计算S=x/2!+x^2/3!+...+x^n/(n+1)!

来源：百度知道 编辑：UC知道 时间：2024/05/10 08:11:44
要求用SUB过程计算每项的分子，用FUNCTION过程计算每项的分母

奇怪,为什么没人回答,大家都不喜欢动脑???
'S=x/2!+x^2/3!+...+x^n/(n+1)!

'求分子
Sub Fenzi(x!, n%, num#)
num = x ^ n
End Sub

'求分母
Function Fenmu#(n%)
Dim i%
Fenmu = 1
For i = 1 To n + 1
Fenmu = Fenmu * i
Next i
End Function

'求总和
Function nSum#(x!, n%)
Dim fzNum#, fmNum#, i%
For i = 1 To n
Fenzi x, i, fzNum
fmNum = Fenmu(i)
nSum = nSum + fzNum / fmNum
Next i
End Function

'调用输出
Private Sub Form_Click()
x! = Val(InputBox("x"))
n% = Val(InputBox("n"))
Print nSum(x, n)
End Sub

晕. 要是我知道我会告诉你的 . 可是我不知道